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Guida per l’Input dei programmi versioni 
VIC <0 e C64 


Notate che i listati contengono ' paro¬ 
le' racchiuse tra parentesi graffe { f. 
Tali parole rappresentano caratteri di 
controllo come mostrato nel sotto¬ 
stante riquadro. Se sono precedute da 
un numero, questo indica il numero di 
volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato de¬ 
ve essere premuto contemporanea¬ 
mente a SHIFT mentre se è racchiuso 
da [ ()] deve essere premu¬ 


to contemporaneamente al tasto 
COMMODORE. Inoltre, se tra parente¬ 
si si trova un carattere alfabetico "soli¬ 
tario” questo dovrà essere premuto 
contemporaneamente al tasto CON¬ 
TROL. 

Con quzslo sistema di codifica, sarà 
molto più agevole copiare i listati sen¬ 
za faticose e dubbie interpretazioni di 
caratteri grafici e di controllo del cur¬ 
sore o dei colori. 


(CLR) 
{HOME} 
(SU) * 
{GIU*} 
(SIN) 
(DES) 

{RVS} 
{OPF) 
(BLK) 
(WHT) 
(RED) 




c 

(CYN) 


(PUR) • 

□ 

(GRN ) 

o 

(BLU) 

VI 

{ YBL} 

a 

1<1>1 


C < 2 > 1 

1 

- 

C < 3 > I 

; 

(<4>| 

m 

K5>] 


l<6>) 
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<7>] 
< 8 > ) 
PI) 
P2) 


cu. 


sa 

aa 

Eli 

BB 

Ql 

BO 


SS 

(F3) 

□ 

(F4) 

K 

(F5) 

O 

C F6} 

- 1 

{F7 ) 
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{F8} 
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Per ricevere gH arretrati di compilare N seguente taglando: 

K 

a Compilare ed inviare in busta chiusa a: 

J.SOft viale Reste», 5 - 90124 Mlano - TeL 02 / 6888228 - 683797 - 6880641 - 2-3 

Nome___ 

Cognome- 

Indirizzo___ 

CAP_ Città_1- Prov- 


Desidero ricevere i seguenti numeri arretrati di 




dedicato a_ 

a L 2.000 cad. per un totale di L. 


. Anno_ 

Anno_ 

. a mezzo 


□ assegno allegato □ contanti allegati 

K . 
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Stop Bus 

Se non l'hai già fatto, memorizza e 
salva su nastro o disco la versione 
di Stop Bug per il tuo computer. 
Questo programma ti permette, 
Una volta caricato ed attivato con 
Run, di digitare i listati di Papersoft 
Commodore senza introdurre erro¬ 
ri di battitura. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano còn la 
parola ".rem" seguita da un nume¬ 
ro, detto checksum,- non copiare 
questa parte della linea, che serve 
solo per tua informazione. Quan¬ 
do Stop Bug è in funzione, infatti, 
tutte le volte che premi il tasto Re¬ 
turn dopo aver digitato una linea 
di programma, appare nell'angolo 
superiore sinistro dello schermo un 
numero, che deve coincidere con 
il checksum da noi pubblicato 
(sempre che tu non abbia usato 


comandi abbreviati, come ? per 
Print). 

Usando Stop Bug tieni conto del 
fatto che gli spazi non influiscono 
sui checksum, per cui fai particola¬ 
re attenzione alle istruzioni Print 
dove sono spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
Stop Bug, soprattutto se sei abitua¬ 
to ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo Return su ogni linea. 

Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che Stop Bug 
interferisca, al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare Stop Bug prima di 
ricaricare il tuo programma. 

Per disabilitare Stop Bug premi 
Run/Stop e Restore (su C64 e VIC 
20) oppure Run/Stop e Reset (su 
CI 6 e Plus/4). Per riattivarlo batti- 

SYS PEEK(56)*256 per il VIC 20; 
SYS 16128 per il C16 e il PLUS/4,■ 
SYS 40704 per il C 64. 
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STOP BUS per Cé4 e VIC •• 

100 POKE55,0:POKE56,PEEK(56)-1:R-PEEK(56)*256:PRINT"{CLR} 
ATTENDERE PREGO..." 

1 10 FORI-RTOR+132:READA:CK«CK+A:IFA«999THENA»R/256 
120 POKEI,A:NEXT 

130 IFCK022689THENPRINT" {GIU ' }ERRORE NELLE ISTRUZIONI DA 
TA"t END 

140 SYS(R):PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIVAT 
O • " I NEW 

200 DATAI 73,36,3,201,32,208,1,96,141 
210 DATA33,999,173,37,3,141,34,999,169 
220 DATA32,141 ,36,3, 1 69,999 r 1 41 ,37,3 
230 DATAI 69,0,133,254,96,32,87,241,133 
240 DATA251,134,252,132,253,8,201,13,240 
250 DATAI 7,201,32,240,5,24,101 ,254,133 
260 DATA254,165,251,166,252,164,253,40,96 
270 DATAI 69,13,32,210,255,165,21 4,141 ,251 
280 DATA3,206,251,3,169,0,133,216,169 
290 DATAI 9,32,210,255,169,18,32,210,255 
300 DATAI 69,58,32,21 0,255,166,254,169,0 
310 DATAI 33,254,172,33,999,192,87,208,6 
320 DATA32,205,189,76,117,999,32,205,221 
330 DATAI 69,32,32,210,255,32,210,255,173 
340 DATA251,3,133,214,76,55,999 


STOP BU« per Clé e PLUS/4 

100 POKE55,0:POKE56,63:PRINT"{CLR}ATTENDERE PREGO..." 

110 FORI*l6128T016260:READA:CK S CK+A:POKEI,A:NEXT 
120 IFCKOl 4248THENPRINT" {GIU 1 } ERRORE NELLE ISTRUZIONI DA 
TA": END 

130 SYSl6128:PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIV 
ATO."! NEW 

200 DATAI 73,34,3,201,32,208,1 ,96,141 
210 DATA33,63,173,35,3,141,34,63,169 
220 DATA32,141,34,3,169,63,141,35,3 
230 DATAI 69,0,133,6,96,32,232,235,1 33 
240 DATA3,134,4,132,5,8,201,13,240 
250 DATAI 7,201 ,32,240,5,24,101,6,133 
260 DATA6,165,3,166,4,164,5,40,96 
270 DATAI 69,13,32,210,255,165,205,141,251 
280 DATA3,206,251,3,169,0,133,207,169 
290 DATAI 9,32,210,255,169,18,32,210,255 
300 DATAI 69,58,32,210,255,166,6,169,0 
310 DATAI 33,6,172,33,63,192,232,208,6 
320 DATA32,95,164,76,117,63,32,7,208 
330 DATAI 69,32,32,210,255,32,210,255,173 
340 DATA251,3,133,205,76,55,63 
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L'accoppiata 


In "L’accoppiata', è necessario, 
come dice il nome, formare delle 
coppie con un certo numero di car¬ 
te coperte. 

In questa versione per computer è 
possibile allenarsi giocando da soli 
o sfidare un altro giocatore in una 
lotta fino all'ultima coppia. 
Facendo partire il gioco, dopo al¬ 
cuni secondi in cui il programma 
inizializza alcune variabili, viene 
chiesto all'utente se desidera gio¬ 
care da solo o contro un avversa¬ 
rio. 

Dopo aver risposto a tale doman¬ 
da appaiono, una per una, sullo 
schermo le 36 carte che compon¬ 
gono di conseguenza 18 coppie. 
Esse vengono disposte casual¬ 
mente sullo schermo e in ogni par¬ 
tita sono in posizioni diverse. 
Dopo che le carte sono state poste 
sullo schermo, un giocatore dovrà 
scegliere una coppia di carte, indi¬ 
candole con i numeri che recano 
sul retro (se si è selezionato il soli¬ 
tario sarà sempre lo stesso giocato¬ 
re a scegliere, se invece si è sele¬ 
zionata la partita a due, sceglierà 
a turno uno o l'altro giocatore). Do¬ 


po aver digitato i due numeri ( digi¬ 
tandoli separati da una virgola o 
premendo RETURN dopo aver di¬ 
gitato ciascun numero), il compu¬ 
ter volterà le due carte corrispon¬ 
denti. 

Se esse sono uguali, il giocatore 
che le ha scelte si aggiudica un 
punto, se sono diverse, il compu¬ 
ter le lascia vedere per alcuni attimi 
e poi le volta. Se si indica una carta 
già scoperta, la scelta viene annul¬ 
lata e viene di nuovo formulata la 
domanda di richiesta dei due nu¬ 
meri. 

Al termine della partita, cioè quan¬ 
do tutte le coppie sono state sco¬ 
perte, colui il quale ha scoperto 
più coppie vince. 

In questo gioco è necessario, per 
scoprire più coppie possibile, os¬ 
servare e cercare di ricordare le 
posizioni delle carte, perché se si 
vede la carta gemella e ci si ricorda 
dove era l'altra carta, si può forma¬ 
re una coppia, mentre digitando 
numeri a caso, è molto difficile tro¬ 
varne una. 

Ed ora buon divertimento e buona 
accoppiatali 


20 DIMCC (18) ,DC%(36) ,NC(72) ,AC(3,3) ,KK(18) ,DK%(36) ,SC(2) 

:rem 115 

30 BS»7788:BO38508 :rem 23 

32 SO$*"{HOME}" jrem 191 

40 DATAI 29,130,131,132,133,134,135,136,137,138,139,140,14 
1,142,143,144,145,146 :rem 35 

50 FORI*lTOl8:READIN:CC(I)«INzNEXT :rem 163 
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65 DATAO,2,5,6,0,6,4,3,3,0,4,5,6,5,3,2,2,4 :rem 
70 F0RI-1T018 srem 
72 READINsKK(I)«IN :rem 
75 NEXT :rem 


90 FORI-0TO8sNC(I*2+1)-49+IsNC(I*2+2)-32sNEXTI srem 
92 F0RI-9T018sNC(1*2+1)«49:NC(1*2+2)-39+1sNEXTI srem 
94 FORI*!9T028sNC(1*2+1)«50:NC(1*2+2)«29+1sNEXTI: rem 
96 F0RI-29T035SNC(1*2+1)-51sNC(1*2+2)-19+1sNEXTIsrem 


110 P0RI-1T036 srem 

120 DC%(I)-0 s NEXTI srem 

1 30 REM s rem 

140 FORI-1TOl85 FORJ-1T02 srem 

160 P-INT(36*RND(0)+1) srem 

170 IFDC%(P)-0THENDC%(P)-CC(I)SDK%(P)-KK(I)SGOTO200 

srem 

180 P-P+7sIFP>36THENP-P-36 srem 

190 GOTO!70 srem 

200 NEXTsNEXT srem 

210 SC(l)-0sSC(2)-OsTR-OSPRINT"{CLR}" srem 

215 INPUT"GIOCATORI (1/2)";NPsIFNP<l0RNP>2THEN215 

srem 

216 PRINT"{CLR}"sME-1 * srem 


220 FORX-1TO36sGOSUB5300 SGOSUB5100 sGOSUB5200sNEXTX 


13 

17 

90 

171 

158 

225 

12 

13 

60 

8 

120 

237 

180 

187 

58 

107 

74 

195 

19 

55 


srem 161 

230 PRINTSO$; srem 35 

235 ME-NP+1-ME • srem 34 

240 PRINT"(GIU'}{BLU}GIOC.";ME;"PRENDI 2 CARTE" srem 150 

250 INPUTXl,X2SPRINT"{SU}{ 7 SPAZI}" srem 2 

260 REM srem 124 

270 IFXl >360RX2>360RXl <10RX2<1 THENE$-”NON BARARE U"sGOSU 
B4000:GOTO230 * srem 210 

280 IFDC*(X1)-OORDC%(X2)-OORX1-X2THENE$-"GIA' SCOPERTE 1" 

sGOSUB4000sGOT0230 srem 191 

300 TR-TR+1SGOSUB4500 srem 251 

305 PRINTSO$;"{RED}PUNTIS 1-{PUR}";SC(1)}"{ 3 SPAZl){RED} 


2-{PUR}";SC(2) 


:rem 

167 

310 IFSC(1)+SC(2)<18THBN230 


srem 

232 

320 PRINT"{HOME}{GRN}{GIU'}FINITO 

IN";TR;"{SIN} 

PROVE 

li • 



srem 

211 

330 F0RW-24T031sPOKE36879,WsFORJ- 

1T02000 s NEXTJ S 

NEXTW 




srem 

76 

340 POKE36879,27sRUN 


srem 

155 

4000 PRINTSOS; 


srem 

•82 

4010 PRINT"{ 2 GIU'}";E$ 


srem 

92 

4020 FORT-1TOl000sNEXT 


srem 

76 

4030 PRINT"{SU}{ 15 SPAZI}";SO$; 


srem 

101 

4040 PRINT"{ 2 GIU'}" 


srem 

187 

4050 RETURN 


srem 

169 

4500 REM 


srem 

173 

4520 X-X1SGOSUB5000sGOSUB5100sGOSUB5200 

srem 

105 
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4540 

X*X2:GOSUB5000:GOSUB5100:GOSUB5200 

: rem 

108 

4550 

IFDC%(XI)*DC%(X2)THENSC(ME)=SC(ME)+1 : 

DC%(Xl)=0 :DC%(X 


2)=0 :GOTO4 590 

: rem 

1 

4560 

F0RT-1T01000 :NEXTT 

:rem 

169 

4570 

X=Xl:GOSUB5100:GOSUB5300:GOSUB5200 

: rem 

113 

4580 

X=X2:GOSUB5100:GOSUB5300:GOSUB5200 

:rem 

115 

4590 

RETURN 

s rem 

178 

5000 

REM 

:rem 

169 

5010 

F0RI-1T03 

2 rem 

58 

5020 

FORJ■1TO3 

2 rem. 

60 

5030 

BC ( I, J) =DC% (X) 

2 rem 

239 

5040 

NEXTJ:NEXTI 

2 rem 

20 

5050 

F=255:RETURN 

2 rem 

3 

5100 

REM 

2 rem 

170 

51 10 

RW=INT((X-l)/6) 

2 rem 

85 

5120 

CL=X-6*RW 

2 rem 

34 

5130 

YS=BS+66*RW+3*CL 

2 rem 

200 

5135 

YC=BC+66*RW+3*CL 

2 rem 

173 

5140 

RETURN 

2 rem 

170 

5200 

REM 

2 rem 

171 

5210 

FORI-1T03 

2 rem 

60 

5220 

FORJ=lT03 

2 rem 

62 

5230 

POKE(YS+22*(I-1)+J),BC(I,J) 

2 rem 

221 

5235 

POKE(YC+22*(I-1)+J) f DK%(X)ANDF 

2 rem 

179 

5240 

NEXTJ:NEXTI 

2 rem 

22 

5250 

RETURN 

2 rem 

172 

5300 

REM 

2 rem 

172 

5310 

FORI»!T03 

2 rem 

61 

5320 

FORJ=1T03 

2 rem 

63 

5330 

BC ( I f J)=32 

2 rem 

2 

5340 

NEXTJ:NEXTI 

2 rem 

23 

5345 

BC ( 2 , 2 ) =NC(2* (X-1 ) +1 ) : BC (2,3)=NC(2*(X 

-1)+2 )2 rem 

149 

5350 

F=0:RETURN 

2 rem 

154 


i w^ari 

Football 


Sfida il tuo VIC 20 in un awicente 
match di Football americano. Se 
non sai nulla di questo sport, non 
temere: ciò che devi conoscere so¬ 
no soltanto le regole (molto sem¬ 
plificate) che valgono in questo 


gioco di simulazione. Vediamole 
insieme. 

Quando la tua squadra è in pos¬ 
sesso della palla, lo scopo del gio¬ 
co è avanzare verso la linea di fon¬ 
do avversaria. Hai a disposizione 
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quattro azioni ("down*) per gua¬ 
dagnare 10 iarde: solo se ci riesci 
la palla resta tua e puoi ricomincia¬ 
re da capo. Se invece non ce la fai, 
devi calciare la 'palla in avanti in 
modo che l'altra squadra debba 
partire da una posizione più arre¬ 
trata. 

Se con un'azione riesci a portare 
la palla oltre la linea di fondo av¬ 
versaria, vai in meta ("tou- 
chdown") e quadagni sei punti, a 
cui può aggiungersene uno nel ca¬ 
so che il successivo calcio di tra¬ 
sformazione passi tra i pali della 
porta. Inoltre, se al momento del 
calcio in avanti della quarta azione 
sei abbastanza vicino alla porta, 
puoi cercare di far passare la palla 
fra i pali realizzando così un "field 
goal", che vale tre punti. 

Il computer visualizza sullo scher¬ 
mo tutte le informazioni necessa¬ 
rie, mostrando anche una schema¬ 
tizzazione del campo di gioco, 
della palla e delle due porte. La tua 

1 REM FOOTBALL 
10 GOSUB2000 
15 GOSUBl00 
25 GOSUBl90 
30 GOSUB480 
35 GOTO500 
100 PRINT"{CLR}" 

105 GOSUB5040 

110 FORSE-1TO50 

115 FF-INT(RND(1)*439) 

120 POKE7680+FF,81 
125 POKE38400+FF,2 
130 POKEV,15 

135 POKEN,INT(RND(1)*250) 

140 GOSUB5040 

150 POKEV,0 

155 POKEN,0 

160 NEXT 

164 PRINT"{CLR}" 

165 PRINT"{BLK}{ 4 SPAZI}** 
168 GOSUB2400:GOSUB5020 


squadra attacca verso destra, 
quella del VIC verso sinistra. 
Quando è il tuo turno, puoi sce¬ 
gliere tre tipi di azioni per cercare 
di portare avanti la palla. La prima, 
che si ottiene premendo il tasto 1, 
è un'azione di tipo difensivo che 
dà buone probabilità di conquista¬ 
re poche iarde; la seconda (tasto 
2) è più aggressiva e può farti gua¬ 
dagnare più terreno, ma ti espone 
maggiormente al pericolo di per¬ 
dere iarde preziose o di farti inter¬ 
cettare la palla da parte degli av¬ 
versari,- infine la terza (tasto 3) cor¬ 
risponde ad un attacco arremban¬ 
te che può farti avanzare anche di 
15-20 iarde in una volta sola, ma è 
naturalmente la più rischiosa. 

Si gioca quindi utilizzando sempli¬ 
cemente questi tre tasti (al resto 
pensa automaticamente il compu¬ 
ter). La durata di una partita è di 
100 unità di tempo, che corrispon¬ 
dono ad altrettante azioni. 

:rem 104 
:rem 163 
:rem 119 
:rem 129 
srem 127 
:rem 54 
:rem 245 
:rem 223 
:rem 121 
:rem 204 
:rem 227 
:rem 219 
srem 171 
srem 165 
srem 222 
srem 119 
srem 116 
srem 214 
srem 255 

K5TBALL* * * { BLU } " srem 107 

srem 102 
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170 

PRINT 

:rem 

37 

175 

GG-GG+1 

:rem 

82 

180 

IPGG-11THENRETURN 

:rem 

100 

185 

GOTO!65 

:rem 

115 

190 

PRINT"{CLR}" 

:rem 

254 

200 

FORAA-OTOl53 

:rem 

164 

210 

POKE8032+AA,1 60 

:rem 

255 

220 

POKE38752+AA,5 

:rem 

218 

230 

NEXT 

trai 

212 

240 

POKE8076+BB,81 

srem 

222 

250 

POKE38796+BB,6 

:rem 

232 

260 

IFBB<19THEN290 

srem 

27 

270 

IFBB<43THEN300 

:rem 

17 

280 

IFBB<63THEN31 0 

srem 

21 

285 

BB-0:GOTO320 

:rem 

152 

290 

BB**20 : GOTO240 

s rem 

199 

300 

BB=44:GOTO240 

:rem 

197 

310 

BB=64:GOTO240 

srem 

200 

320 

POKE8053+CC,32 

:rem 

214 

330 

CC-CC+22:DD-DD+1 

srem 

81 

340 

IFDD-8THEN360 

:rem 

235 

350 

GOTO320 

srem 

102 

360 

GOSUB2200:RETURN 

:rem 

247 

480 

IFRND(1)>.5THENPL-1 

srem 

107 

490 

RETURN 

:rem 

125 

500 

PRINT"{HOME}":GOSUB1200 :rem 

246 

505 

T-T-1 :IFT<1THENl100 

:rem 

88 

510 

PRINT:PRINT"{ 6 DBS} 

TEMPO *"STR$(T)" ":PRINT:rem 

107 

520 

PRINT" SQUADRA VIC20 1 * 

M ,S2: PRINT : rem 

53 

530 

PRINT"SQUADRA UMANA" 

,SI:PRINT : rem 

99 

540 

PRINT"AZIONE N.";DN: 

PRINT :rem 

64 

543 

GOSUB2600 

: rem 

228 

545 

PRINT"GUADAGNO NECESSARIO -{ 9 SPAZI}{ 9 SIN}"DG*5"IA 


RDE":PRINT 

:rem 

189 

550 

IFPL*1THENPRINT"LA PALLA E' MIA":PRINT:GOTO590 




srem 

69 

570 

PRINT"LA PALLA E' TUA":PRINT:GOTO660 :rem 

144 

590 

B-INT(RND(1 )*3)+l 

:rem 

120 

600 

IFDG-2THENB-B+1 

srem 

107 

610 

IFDN-3THENB-3 

:rem 

9 

620 

IFB>3THENB-3 

srem 

. 18? 

640 

GOTO70 0 

:rem 

106 

660 

GETB$:B«VAL(B$) 

srem 

53 

670 

IFB<lORB>3THEN660 

:rem 

250 

700 

LC-INT(RND(1) *16)+1 

srem 

242 

710 

IFLC-B<1THENl 000 

:rem 

130 

720 

IFLC+B<10THENDG-DG:YG-0:DN»DN+1:B$-"NULLA DI FATTO":G 


OTO780 

srem 

59 

730 

IFLC+B<14THENDG-DG-1 

:YG«1:DN-DN+1:B$-"GUADAGNO":GOT07 


80 

srem 

94 
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740 

IFLC+B<16THENDG-DG-(B+1):YG-B+1:DN-DN+1 

:B8-"GUADAGNO" 


:GOTO780 . 

: rem 

140 

750 

IFLC+B>15THENDG-DG+1JYG--1JDN-DN+1:B$-" 

PERDITA" 




:rem 

63 

780 

GOSUB2500 

srem 

230 

785 

IFYG-OTHENPRINT"{HOME}"B$:GOTO795 

srem 

209 

790 

PRINT"{HOME} " B$ " DI"?ABS(YG*5)?"IARDE" 

srem 

0 

795 

GOSUB2400:GOSUB5000 

srem 

106 

800 

GOSUB2100 

srem 

219 

815 

IFPL-OTHENDI-DI+YG 

srem 

135 

820 

IFPL-1 THENtìjl-DI-YG 

srem 

134 

825 

IFDI<lORDI>l9THEN1500 

srem 

243 

830 

GOSUB2200:GOSUB2500 

srem 

96 

850 

IFDG<-0THENDG«2:DN-1IGOSUB5000SPRINT"{HOME}PRIMA 

AZIO 


NE":GOSUB5000:GOSUB2500:GOTO500 

srem 

167 

860 

IFDN<4THENGOSUB5000:GOT0500 

srem 

171 

870 

PRINT"{HOME}OBBLIGO DI CALCIARE"SGOSUB5010:GOSUB2400 



srem 

66 

875 

GOSUB2500 

srem 

235 

880 

PU-INT(RND(1)*5)+6 

srem 

228 

890 

PRINT"{HOMEjCALCIO DA"?PU*5?"IARDE":GOSUB501 0 




srem 

88 

895 

GOSUB2100:GOSUB2500 

srem 

106 

900 

IFPL-1THENDI-DI-PU 

srem 

138 

905 

IFPL-0 THENDI-DI+PU 

srem 

140 

910 

IFDI<10RDI>19THEN1 700 

srem 

240 

915 

GOSUB2200 

srem 

227 

920 

DN-1iDG-2:PL-ABS(PL-1 ) 

srem 

3 

925 

GOSUB5010 

srem 

230 

930 

GOTO500 

srem 

106 


1000 

PRINT"{HOME}PALLA INTERCETTATA" 

: X-0:FORX-1T03:GOSUB2 


400:NEXT 

srem 

76 

1010 

GOSUB5000:GOSUB2500 

srem 

136 

1020 

PL-ABS(PL-1):DN-1:DG-2 

srem 

43 

1030 

GOTO500 

srem 

146 

1100 

PRINT"{CLR}" 

srem 

38 

mo 

PRINT"LA PARTITA E' FINITA":FORX-1TOT 0:GOSUB2400 

:NEX 


T 

srem 

65 

1120 

PRINT 

srem 

81 

1130 

PRINT"SQUADRA VIC20 «"?S2 

srem 

232 

1140 

PRINT 

srem 

83 

1150 

PRINT"SQUADRA UMANA -"?&! 

srem 

23 

1160 

END 

srem 

159 

1200 

FORX-1TO3 

srem 

70 

1210 

POKE7762+X r 32 

srem 

221 

1220 

NEXT 

srem 

4 

1230 

RETURN 

srem 

166 

1500 

GOSUB2500SPRINT"{HOME}META1 111" 

sX«0sGOSUB5020 




srem 

86 

1510 

GOSUB2400 

srem 

13 


11 



1520 

X-X+l:IFX-10THEN1 540 


:rem 

201 

1530 

GOTO!510 


:rem 

201 

1540 

GOSUB5010:GOSUB2500:IPRND(!)>.!THENl560 

srem 

88 

1550 

PRINT"{HOME}TRASFORMAZIOHE FALLITA":GOSOB5000:AD 

-6:G 


OTO1570 


_ srem 

209 

1560 

PRINT"{HOME}META TRASFORMATA!":AD-7:GOSUB5000 





srem 

238 

1570 

IFDI<1THENS2-S2+AD 


srem 

124 

1580 

IFDI>19THENS1«SI+AD 


srem 

182 

1600 

PL-ABS(PL-I):DG«2:DI«10: 

DN-1 

srem 

148 

1610 

GOSUB2200:GOTO500 


srem 

20 

1700 

PRINT"{HOME}CALOIO VERSO 

LA PORTA":GOSUB5000 





srem 

120 

1705 

GOSUB2500 


srem 

20 

1710 

IFRND(1)>.5THENl730 


srem 

89 

1720 

PRINT"{HOMEJMANCATO!":GOSUB5000:AD«0:GOTOl740 




srem 

188 

1730 

PRINT"{HOME}RIUSCITOlI !" 

:GOSUB5000:AD«3 

srem 

50 

1740 

IFDI>19THENS 1 «Si +AD 


srem 

180 

1750 

I FD I < 1 THENS 2 « S 2+AD 


srem 

124 

1755 

GOSUB2500 


srem 

25 

1760 

PL«ABS(PL-1):DG-2:DI-10: 

DN-1 

srem 

155 

1770 

GOSUB2200 :GOTO500 


srem 

27 

2000 

V-36878 


srem 

101 

2010 

N-36877 


srem . 

93 

2020 

T«100:DN=1:DG«2 


srem 

84 

2030 

DI«10 : RETURN 


srem 

10 

• 2100 

POKE8098+DI,160 


srem 

70 

2110 

POKE38818+DI,5 


srem 

24 

2120 

RETURN 


srem 

165 

2200 

POKE8098+DI,81 


srem 

25 

2210 

POKE38818+DI,2 


srem 

22 

2220 

RETURN 


;rem 

166 

2400 

POKEV,15 


srem 

221 

2410 

POKEN,245 


srem 

11 

2420 

GOSUB5040 


srem 

17 

2430 

POKEV,0 


srem 

170 

2440 

POKEN,0 


srem 

163 

2450 

RETURN 


srem 

171 

2500 

FORJJ-0TO21 


srem 

181 

2510 

POKE7680+JJ,32 


srem 

28 

2520 

NBXT 


srem 

8 

2530 

RETURN 


srem 

170 

2600 

FORJ-0TO2 


srem 

59 

2610 

POKE7922+J,32 


srem 

210 

2620 

NBXT 


srem 

9 

2630 

RETURN 


srem 

171 

5000 

FORD«1TOl000 :NEXT 


srem 

59 

5010 

FORD«1TO800:NEXT 


srem 

19 

5020 

FORD«lTO400:NRX" 


srem 

16 


12 



5030 FORD»!T075:NEXT 
5040 FORD*!T025:NEXT 
5050 RETURN 


:rem 233 
:rem 229 
:rem 170 



CI6— plus/4 

*3 

Invasione 

% 

Joystick (opzionale) 


Gli invasori spaziali sono ormai alle 
porte! La Terra è costretta a difen¬ 
dersi con la forza dagli attacchi dei 
cattivi alieni, e tu sei al comando 
di una batteria antiaerea utilizzata 
per l'occasione contro gli UFO. 

Sul video del tuo Ciò puoi vedere 
il mirino della tua batteria e TUFO 
in fase di veloce avvicinamento. 
Distruggi la nave aliena, che si in¬ 
grandisce avvicinandosi a te, il più 


presto possibile per assicurarti un 
alto punteggio. Ad ogni assalto 
TUFO è più vicino, per cui hai a 
disposizione meno tempo per col¬ 
pirlo. Il gioco termina quando una 
nave nemica giunge a terra. 

Per manovrare il mirino usa i tasti 
cursore o il joystick n. 1; per spara¬ 
re rispettivamente il tasto RETURN 
o il pulsante del joystick. 


100 

no 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 


REM INVASIONE 
DIMD(15):GOSUB460 
PRINT"{CLR}" 

S*0:SR*2000 
RA*SR.R=1 

UL*3192+INT(RND(8)*800):AL*3572sAC-43 
El*UL:RA*RA-10:IFRA<1500THENR*2 
IFRAC1000THENR-3 


:rem 
:rem 
:rem 
: rem 
:rem 
:rem 
:rem 
:rem 


33 

187 

247 

50 

4 

16 

100 

168 


D*INT(RND(8)*16):K-UL+D(D):IFK>3192ANDK<3992THENUL-K 

:rem 101 

IFRA<10THEN350 srem 32 

FORX*OTO4sPOKEEl+X,32sPOKEUL+X,EC(R,X):NEXT srem 233 
K*PEEK(2038) srem 94 

PRINT"{HOME}{WHT}{ 4 SPAZI}PUNTI *"STR$(S)TAB(21)"DIS 
TANZA *"STR$(RA)"{ 2 SPAZI}" srem 186 

JY-JOY(l)sFI-JYANDl28sJY*JYANDl 5 srem 246 

Al -AL SIFAL> 3152AND(JY-1ORJY*20RJY* 80RK*4 3)THENAL*AL-4 
0 s GOTO280 srem 134 

IFAL<3 9 9 3AND(JY» 50RJY* 40RJY* 60RK-4 0)THENAL*AL+4 0 s GOTO 
280 srem 27 

IFAL>3152AND(JY*70RK*48)THENAL-AL-1SGOTO280 srem 126 







270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 


IFAL<3993AND(JY-30RK-51)THENAL-AL+1 
IFF 1 = 0 AND KOI THEN300 

FORT»8TOOSTEP- 1 :VOLT:SOUND3,700 , 4 :NEXT 
IFPEEK(Al)< >4 3AND(FI>0ORK=l)THEN3 20 
PORRAI,32 : POKBAL,AC:GOTO160 
COLORO,8,4:S»S+RA: IFSR>200THENSR-SR-100 
PORT-8TOOSTEP-1:VOLT:SOUND3,500,15:NEXT 
COLORO,!:PRINT"{CLR}":GOTOl 40 


:rem 

:rem 

:rem 

:rem 

:rem 

:rem 

:rem 

:rem 


113 

176 

201 

42 

118 

149 

244 

73 


COLOR4,3,4:COLORO,8,4:PRINT"{CLR}{WHT}{ 10 GIU'}"TAB( 


14)"***CRASH***" 

PORT-8TOOSTBP-.1:VOLT 
SOUND 3,300,2 
COLORO,3,3 

SOUND3,300,2 :COLORO,8,5:NEXT 
FORT-1T02000 :NEXT:POKE239,0 
COLORO,1,4:COLOR4,7,4 

PRINT:PRINT:PRINT" GIOCHI ANCORA (S/N)?" 
GETQ$:IFQ$-"S"THENl20 
IFQ$»"N"THENSCNCLR:END 
GOTO430 


:rem 
: rem 
:rem 
:rem 
:rem 
: rem 
:rem 
:rem 
:rem 
:rem 
: rem 


66 

99 

115 

8 

156 

126 

177 

188 

192 

112 

105 


COLORO,!:PRINT"{CLR}{WHT}":PRINT:PRINTTAB(14)"{RVS} I 


NVASIONE 


:rem 102 


PRINT:PRINT:PRINT" IL TUO COMPITO E' PROTEGGERE IL CI 
ELO" :rem 3 

PRINT" INTERCETTANDO IL NEMICO." :rem 191 

PRINT:PRINT" SPOSTA IL MIRINO COL JOYSTICK 1 O CON" 

* :rem 32 

PRINT" I TASTI DI CONTROLLO CURSORE." :rem 206 

PRINT:PRINT" PREMI IL PULSANTE O IL TASTO <RETURN>" 

: rem 117 

PRINT" PER SPARARE.":PRINT :rem 82 

PRINT" IL GIOCO TERMINA QUANDO L'UFO TI VIENE":PRINT" 
ADDOSSO.":PRINT :rem 197 

PRINT" BUONA FORTUNA!" :rem 31 

FORX-0TO7:READD(X):NEXT :rem 220 

FORX»lTO3:FORY»0TO4:READEC(X,Y):NEXT:NEXT :rem 218 

PRINT:PRINT:PRINT"{ 6 SPAZI}PREMI UN TASTO PER INIZIA 
RE" :rem 232 

GETKEYQS :rem 219 


590 RETURN :rem 126 

600 DATA-41,-40,-39,-V,l,39,40,41 :rem 100 

610 DATA32,109,125,32,32,32,109,42,125,32,124,67,81,67,12 
6 :rem 79 


14 



In "L'accoppiata ' è necessario, 
come dice il nome, formare delle 
coppie con un certo numero di car¬ 
te coperte. , 

In questa versione per computer è 
possibile allenarsi siocando da soli 
o sfidare un altro giocatore in una 
lotta fino all'ultima coppia. 
Facendo partire il gioco, dopo al¬ 
cuni secondi in cui il programma 
inizializza alcune variabili, viene 
chiesto all'utente se desidera gio¬ 
care da solo o contro un avversa¬ 
rio. 

Dopo aver risposto a tale doman¬ 
da appaiono, una per una, sullo 
schermo le 36 carte che compon¬ 
gono di conseguenza 18 coppie. 
Esse vengono disposte casual¬ 
mente sullo schermo e in ogni par¬ 
tita sono in posizioni diverse. 
Dopo che le carte sono state poste 
sullo schermo, un giocatore dovrà 
scegliere una coppia di carte, indi¬ 
candole con i numeri che recano 
sul retro (se si è selezionato il soli¬ 
tario sarà sempre lo stesso giocato¬ 
re a scegliere, se invece si è sele¬ 
zionata la partita a due, sceglierà 
a turno uno o l'altro giocatore). Do¬ 


po aver digitato i due numeri ( digi¬ 
tandoli separati da una virgola o 
premendo RETURN dopo aver di¬ 
gitato ciascun numero), il compu¬ 
ter volterà le due carte corrispon¬ 
denti. 

Se esse sono uguali, il giocatore 
che le ha scelte si aggiudica un 
punto, se sono diverse, il compu¬ 
ter le lascia vedere per alcuni attimi 
e poi le volta. Se si indica una carta 
già scoperta, la scelta viene annul¬ 
lata e viene di nuovo formulata la 
domanda di richiesta dei due nu¬ 
meri. 

Al termine della partita, cioè quan¬ 
do tutte le coppie sono state sco¬ 
perte, colui il quale ha scoperto 
più coppie vince. 

In questo gioco è necessario, per 
scoprire più coppie possibile, os¬ 
servare e cercare di ricordare le 
posizioni delle carte, perché se si 
vede la carta gemella e ci si ricorda 
dove era l’altra carta, si può forma¬ 
re una coppia, mentre digitando 
numeri a caso, è molto difficile tro¬ 
varne una. 

Ed ora buon divertimento e buona 
accoppiata!! 


io 

20 


COLOR4,4:COLORO,2sPRINT"[<7>]" srem 96 

DIMCC ( 1 8) ,DC%(36) ,NC(72) ,AC(3 r 3) ,KK(18) ,DK%(36) ,SC(2) 

srem 115 


srem - 202 


:rem 191 


30 BS-3238SBC-2214 
32 SO$-"{HOME}" 
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40 DATAI 29,130,131,132,133,134,135,136,137,138,1 
1,142,143,144,145,146 
50 FORI-lTOl8:READIN:CC(I)«IN:NEXT 
65 DATAO,2,5,6,0,6,4,3,3,0,4,5,6,5,3,2,2,4 
70 FORI-lTOl8 
72 READIN:KK(I)«IN 
75 NEXT 

90 FORI-OTO8:NC(1*2+1)«49+I:NC(1*2+2)-32:NEXTI 
92 FORI-9TOl8:NC (1*2+1 )«49:NC (1*2+2)-39+UNEXTI 
94 F0RI-19T028:NC(1*2+1)-50:NC(1*2+2)-29+I:NEXTI 
96 F0RI-29T035:NC(1*2+1)«51:NC(I*2+2)-19+I:NEXTI 
110 F0RI-1T036 
120 DC%(I)-0:NEXTI 
130 REM 

140 FORI-lTOl8:F0RJ*lT02 
160 P-INT(36*RND(0)+1) 


39,140,14 
:rem 35 
:rem 163 
: rem 13 
:rem 17 
:rem 90 
:rem 171 
:rem 158 
:rem 225 
:rem 12 
: rem 13 
:rem 60 
:rem 8 
:rem 120 
:rem 237 
:rem 180 


:rem 
:rem 
: rem 
:rem 
:rem 
:rem 


170 IFDC%(P)-0THENDC%(P)-CC(I):DK%(P)-KK(I):GOTO200 

:rem 187 

180 P-P+7sIFP>36THENP*P-36 :rem 58 

190 GOTO!70 :rem 107 

200 NEXT:NEXT :rem 74 

210 SC(1)-0:SC(2)-0:TR-0:PRINT"{CLR}" :rem 195 

215 INPUT"GIOCATORI (1/2)";NP:IFNP<lORNP>2THEN215 

:rem 19 

216 PRINT"{CLR}":ME»1 :rem 55 

220 FORX-1T036:GOSUB5300:GOSUB5100:GOSUB5200: NEXTX 

:rem 161 

230 PRINTSO$; :rem 35 

235 ME-NP+1-MB :rem 34 

240 PRINT"{GIU'}(BLU}GIOCATORE";ME;"(SIN) - PRENDI 2 CART 

B" :rem 173 

250 INPUTXl,X2:PRINT"(SU}{ 7 SPAZI}" :rem 2 

260 REM :rem 124 

270 IFXl>360RX2>360RX1<10RX2<1THENB$«"NON BARARE ll":GOSU 
B4000:GOTO230 :rem 210 

280 IFDC%(X1)-OORDC%(X2)-OORX1-X2THENE$-"GIA* SCOPERTE I" 
:GOSUB4000: GOTO230 :rem 191 

300 TR-TR+1:GOSUB4500 :rem 251 

305 PRINTSO$;"{RED}PUNTI 1-{PUR}";SC(1);"{RED}{ 3 SPAZI} 
2-{PUR}”;SC(2) :rem 109 

310 IFSC(1)+SC(2)<18THBN230 :rem 232 

320 PRINT"{HOME}{GRN}{GIU'}FINITO IN”;TR;"{SIN} PROVE 11" 

:rem 211 

330 FORW-lTOl6:COLOR4,W:FORJ*lTO500:NEXTJ:NEXTW :rem 96 
340 COLOR4,4:COLORO,2:RUN :rem 32 

4000 PRINTS08; :rem 82 

4010 PRINT"{GIU'}";E$;"{ 18 SPAZI}" :rem 202 

4020 FORT-1T02000:NEXT :rem 77 

4030 PRINTSO$; :rem 85 

4040 PRINT"{ 2 GIU'}" :rem 187 
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4050 

RETURN 

:rem 

169 

4500 

REM 

srem 

173 

4520 

X-Xl:GOSUB5000:GOSUB5100:GOSUB5200 

srem 

105 

4540 

X-X2:GQSUB5000:GOSUB5100:GOSUB5200 

srem 

108 

4550 

IFDCt (XI ) -DCt (X2) THENSC (ME) -SC (ME) -fi :DC% (XI ) -0 :DC% (X 
2)-0:GOT04590 :rem 1 

4560 

FORT-1TO1000:NEXTT 

srem 

169 

4570 

X-Xl:GOSUB5100:GOSUB5300:GOSUB5200 

srem 

113 

4580 

X-X2:GOSUB5100:GOSUB5300:GOSUB5200 

srem 

115 

4590 

RETURN 

srem 

178 

5000 

REM 

srem 

169 

5010 

F0RI-1T03 

srem 

58 

5020 

F0RJ-1T03 

srem 

60 

5030 

BC(I,J)«DC%(X) 

srem 

239 

5040 

NEXTJ:NEXTI 

srem 

20 

5050 

F-255:RETURN 

srem 

3 

5100 

REM 

srem 

170 

5110 

RW-INT((X-1)/6) 

srem 

85 

5120 

CL-X-6*RW 

srem 

34 

5130 

YS-BS+120*RW+3*CL 

srem 

239 

5135 

YC-BC+120*RW+3*CL 

srem 

212 

5140 

RETURN 

srem 

170 

5200 

REM 

srem 

171 

5210 

F0RI-1T03 

srem 

60 

5220 

F0RJ-1T03 

srem 

62 

5230 

POKE (YS+40* (1-1 ) +J) ,BC (I # J) 

srem 

221 

5235 

POKE(YC+40*(1-1)+J) f DK%(X)ANDF 

srem 

179 

5240 

NEXTJ:NEXTI 

srem 

22 

5250 

RETURN 

srem 

172 

5300 

REM 

srem 

172 

5310 

F0RI-1T03 

srem 

61 

5320 

FORJ-1T03 

srem 

63 

5330 

BC(I,J)-32 

srem 

2 

5340 

NEXTJ:NEXTI 

srem 

23 

5345 

BC (2 f 2) »NC (2* (X-1 ) +1 ) :BC (2,3)-NC (2* 

(X-1)+2)srem 

149 

5350 

F-0:RETURN 

srem 

154 
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©cocco 


COCCO 






IN EDICOLA 
JACKSON SOFT 
SERIE ORO 


I giochi esclusivi per 
Commodore 64 e Spectrum 48 K 
importati dall'Inghilterra, mai 
presentati in Italia. 

Una sfida Jackson al già visto, al 
già fatto, al... già registrato. 


Corri in edicola, il vero gioco comincia solo adesso 
e se sei davvero bravo partecipa alla “sfida al campione”, 
utilizzando il tagliando che troverai sull’ultima pagina 
di copertina di ogni numero. 








Ricerca veloce 



Questo programma non è un gio¬ 
co! Lo pubblichiamo perché è mol¬ 
to utile e ti aiuterà parecchio nella 
ricerca dei programmi su nastro. 
Listando il programma noterai che 
vi sono dei nomi posticci (da Prog 
1 a Prog 9); tu dovrai sostituirli met¬ 
tendo al loro posto i veri nomi dei 
tuoi programmi. In questo modo 
avrai un menù completo della tua 
cassetta. 

Sarebbe utile registrare questo 
programma all'Inizio di ogni cas¬ 
setta con programmi archiviati de¬ 
finitivamente, così potrai rispar¬ 
miare molto tempo. Il programma 
ti permette di raggiungere tramite 
l'avanzamento veloce del nastro 
(F. FWD) il punto della cassetta ove 
hai precedentemente registrato un 
programma. 

Le operazioni da eseguire perché 
il programma funzioni al meglio so¬ 
no le seguenti: 

1) Registrare all'inizio della casset¬ 
ta Ricerca Veloce nella sua versio¬ 


ne originale (insomma quella che 
vedi listata qui sotto). 

2) Salvare subito dopo il primo 
programma annotandosi il numero 
di giri indicato dal registratore alla 
fine della registrazione;■ quindi 
proseguire salvando gli altri pro¬ 
grammi sempre annotandosi il nu¬ 
mero di giri corrispondente all'ini¬ 
zio di ciascun programma. 

3) Riavvolgere completamente il 
nastro e ricaricare Ricerca Veloce. 

4) Modificare Ricerca Veloce come 
segue: sostituire nelle linee dalla 
1400 alla 2000 i nomi dei program¬ 
mi ai nomi fittizi Prog 1, Prog 2 ecc.; 
cambiare eventualmente i valori 
assegnati alla variabile Q nelle li¬ 
nee 2800-3500 per adattare il tem¬ 
po di avanzamento veloce alla lun¬ 
ghezza di ogni programma archi¬ 
viato. 

5) Risalvare la nuova versione defi¬ 
nitiva di Ricerca Veloce all’inizio 
della cassetta. 


100 REM ***RICERCA VELOCE*** :rem 40 

200 POKE56,160:POKE52,160:CLR :rem 157 

300 POKE53280,1 :POKE53281,2:PRINT"{CLR}"SPC(10)" 

{ 5 GIU'}{YELjRICERCA SU NASTRO" :rem 208 

400 PRINTSPC(10)"{ 3 GIU'}PER UN VELOCE" :rem 120 

500 PRINTSPC(10)"{ 3 GIU'}E FACILE ACCESSO":PRINTSPC(10)" 
{ 3 GIU'}AI TUOI PROGRAMMI" :rera 106 

600 PRINTSPC(10)"{ 3 GIU'}{RVS}PREMI F7 PER CONTINUARE" 

:rem 29 

700 GETA$:IFA$<>"{F7}"THEN700 :rem 22 

20 






800 PRINT"{CLR}{ 4 GIU'}"SPC(8)"DEVI PORRE SEMPLICEMENTE" 
:PRINTSPC (8)" { 3 GIU'}I NOMI DEI TUOI" :rem 170 

900 PRINTSPC(8)"{ 3 GIU'}PROGRAMMI DIRETTAMENTE NEL":PRIN 
TSPC(8)"{ 3 GIU'}LISTATO" srem 236 

1000 PRINTSPC(8)"{ 3 GIU'}{RVS}PREMI F7 PER CONTINUARE" 


1100 

1200 

1300 

1400 

1450 

1500 

1600 

1700 

1800 

1900 

2000 

2100 


2200 

2300 

2400 

2500 


• A CUI 


GETA$ :IFA$<>"{F7}"THENl100 srem 108 

PRINT"{CLR}"SPC(9)"{CYN}MENUPRINT"{GIU'}{YEL} #"SP 
C(4)"PROGRAMMI" :rem 233 

PRINT" {WHT}[< 14 T>] [< 12 T>]" :rem 40 

PRINT"{ 2 GIU'} 1"SPC(14)"PROG 1":PRINT"{ 2 GIU'} 2" 
SPC(14)"PROG 2" :rem 219 

PRINT"{ 2 GIU*} 3"SPC(14)"PROG 3" :rem 59 

PRINT"{ 2 GIU'} 4"SPC(14)"PROG 4":PRINT"{ 2 GIU'} 5" 
SPC(14)"PROG 5" :rem 232 

GOSUB4900 : rem 20 

PRINT"{CLR}"SPC(9)"{CYN}MENU":PRINT"{GIU'}{YEL} #"SP 
C(4)"PROGRAMMI" :rem 238 

PRINT" {WHT}{< 14 T>] {< 12 T>]" :rem 45 

PRINT"{ 2 GIU'} 6"SPC(14)"PROG 6":PRINT"{ 2 GIU'} 7" 
SPC(14)"PROG 7" srem 244 

PRINT"{ 2 GIU'} 8"SPC(14)"PROG 8":PRINT"{ 2 GIU'} 9" 
SPC(14)"PROG 9" : rem 244 

PRINT"{ 2 GIU'}{ 4 SPAZI}{RVS}PREMI F7 PER SCEGLIERE 
"SPRINT"{GIU'}{ 4 SPAZI}{RVS}0 F5 PER RITORNARE AL M 

ENU{OFF}" srem 

GETA$ sIFA$<>"{F7}"ANDA$<>"{F5}"THEN2200 srem 
IFA$-"{F5}"THENl200 srem 

REM srem 

INPUT"{ 2 GIU'}{ 7 SPAZI}SCEGLI # s";JsPRINT 


37 
237 
179 
170 


2600 

2700 

2800 

2900 

3000 

3100 

3200 

3300 

3400 

3500 

3600 

3700 

3800 

3900 

4000 

4100 




:rem 

29 

IFJ<10RJ>9THEN1 200 


:rem 

98 

IFJ-1THEN4600 


: rem 

9 

IFJ-2THENQ-1.5 


:rem 

99 

IFJ-3THENQ-2.8 


:rem 

105 

IFJ-4THENQ-3.7 


: rem 

98 

IFJ-5THENQ-4.5 


:rem 

99 

IFJ-6THENQ-6.7 


:rem 

105 

IFJ-7THENQ-7.6 


:rem 

107 

IFJ-8THENQ-8.65 


:rem 

163 

IFJ-9THENQ-12.9 


: rem 

158 

REM 


:rem 

173 

IF(PEEK(1)ANDl6)-0THENPRINT"{CLR}{ 

6 GIU 

'}{ 6 DES}PR 

EMI STOP SUL REGISTRATORE" 


: rem 

241 

IF(PEEK(1)ANDl6)-0THEN3800 


:rem 

243 

PRINT" {CLR} { 11 GIU'H 6 DBS}PREMI 

F.FWD 

SUL REGISTR 

ATORE"SPRINT 


: rem 

193 

IF(PEEK(1)ANDl6)-16THEN4000 


:rem 

28 

PRINT"{CLR}"sPRINTSPC(19)"{ 11 GIU 

' }OK" S 

PRINT:A» 

TI 


srem 70 
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4200 

4300 

4400 

4500 

4600 

4700 

4800 

4900 

5000 

5100 


IFABS(TI-A)<(Q*360)THEN4200 :rem 29 
Z*PEEK(1):POKEl92,ZOR32:POKEl,ZOR32 :rem 188 
PRINT" {CLR} { 11 GIU'H 11 DES}FAI SCATTARE F.FWD" 


IF(PEEK(1)ANDl6)«0THEN4500 
PRINT"{CLR}" 

REM 

POKEl98,5:POKE631 ,78 :POKE632,69 :POKE633,87 
3:POKE635,131 : END 

PRINT"{ 3 GIU'}{ 8 SPAZI}{RVS}PREMI F7 PER 

GETA$: IFA$<>"{F7}"THEN500Ò 
RETURN 


:rem zó'ì 
:rem 46 
:rem 175 
POKE634,1 
:rem 74 
CONTINUAR 
:rem 188 
:rem 114 
:rem 166 





Il paroliere è un gioco di osserva¬ 
zione. 

Facendo girare il programma, ti 
verrà richiesto il livello di difficoltà 
(da 1 a 5). 

Subito dopo dovrai immettere 10 
parole lunghe da 3 a 8 caratteri. 
Fatto ciò, il computer elaborerà il 
puzzle e poi lo visualizzerà. In alto 
a destra verrà scritta la parola da 
cercare. 

Quando riuscirai a trovarla, dovrai 

2 CLR 

3 A=0 

4 POKE53280,0:POKE53281,0 

5 A=A+1 

10 PRINT"{CLR}":PRINT"{ 7 Gl 
{ 20 Q}" 

11 PRINT"{RVS}{ 10 DES}Q{ 18 

12 PRINT"{RVS}{ 10 DES}Q{ 5 


digitare le coordinate di partenza 
della parola e la sua direzione (uti¬ 
lizzando la tabella posta nell'an¬ 
golo in basso a sinistra dello scher¬ 
mo). 

Se la risposta data è esatta, il com¬ 
puter risponderà con un "si" stam¬ 
pato sullo schermo e ti darà un 
punteggio che è subordinato al 
tempo impiegato per trovare la pa¬ 
rola. 


: rem 1 9 
:rem 225 
:rem 137 
:rem 80 

'}{ 10 DES}{GIU'}{RVS} 

treni 224 

SPAZI}Q" :rem 9 

PAZI}PAROLIERE{ 4 SPAZI}Q" 

:rem 173 
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13 PRINT"{RVS}{ 10 DES}Q{ 18 SPAZI}Q" :rem 11 

14 PRINT"{RVS}{ 10 DES}I 20 Q}{OFF} # srem 80 
20 FORX-1T0200:NEXT:PRINT"{CLR}" srem 91 
25 L$-"{WHT}{YEL}{GRN}{PUR}{RED}{CYN}":PRINTMID$(L$,A,1)S 

IFA<7THEN5 srem 161 
70 FORX-1 TOVAL(RIGHT$ (TI$,2) ) :R«RND(1) sNEXT srem 165 
80 S-10:W«10:DIMM(S,S),W$(W),P(S,S),L(W,3),F(8) :rem 116 
90 POKE53280,4:POKE53281 ,1 SPRINT"{CLR}{GIU'}{BLU} 

{ 11 SPAZI}QUALE{ 2 SPAZI DIFFICOLTÀ'" srem 5 
95 PRINT:PRINT:PRINT :rem 137 
100 PRINT"{PUR}DA 1(FACILE)A 5(DIFF){ 3 SPAZl}3{ 3 SIN}"; 

:rem 206 

110 INPUTR$:X-VAL(R$):IFX<1ANDX>5THEN90 ;rem 213 
120 SL-9-X srem 45 
130 PRINT"{BLK}{ 2 GIU'}{ 12 SPAZI}DIGITA"W" PAROLE" 


:rem 39 

140 PRINT:PRINT"{ 7 SPAZI}LUNGHE DA 3 A 8 CARATTERI. 

{ 3 SPAZI}" srem 238 

170 FORX-lTOW:L(X,l)-0:L(X,2)-0:L(X,3)-0 srem 45 

180 PRINT:PRINT"{OFF}{RED}PAROLA #";X;TAB(8);"{ 2 DES}? 

{ 3 SIN}" srem 190 

190 INPUTR$:Q=LEN(R$) srem 14 

200 IFQ<3THENPRINTTAB(40);"{BLU}{SU}{ 7 SPAZI}{RVS}* 

{ 5 SPAZI}TROPPO CORTA{ 7 SPAZI}* {OFF}"sGOTOl80 


srem 185 

210 IFQ>8THENPRINTTAB(40);"{BLU}{SU}{ 7 SPAZI}{RVS}* 

{ 5 SPAZI}TROPPO LUNGA{ 7 SPAZI}* {OFF}"SGOTOl80 

srem 191 

220 X9-0:FORY-lTOQ:A-ASC(MID$("*"+R$+"*",Y+l f l))srem 131 
230 IFA<65ORA>90THENX9«l:Y«Q srem 228 

240 NEXTY:IFX9-1THENPRINTTAB(40)"{SU}{ 6 SPAZI}* 

{ 6 SPAZI}PAROLA SBAGLIATA{ 6 SPAZI}* "sGOTOl80 


srem 186 

250 IFX-llTHENW$(X)R$+"*":GOTO290 srem 141 

260 X9-0 :FORY-lTOX:IFQ<-LEN(W$(Y))-1THEN280 srem 136 

270 FORB-XTOY+lSTEP-1:W$(B)«W$(B-l):NEXTsW$(Y)-R$+"*":X9- 
1:Y-X-1 srem 29 

280 NEXT srem 217 

290 NEXT srem 218 

295 POKE53281,1 srem 47 

300 PRINT"{BLU}{CLR}{ 6 GIU'}{ 9 SPAZl}HO ABBASTANZA PARO 

le l" srem 206 

310 PRINT" {PUR} { 5 GIU'H 10 SPAZI} ATTENDI UN ATTIMO... 

srem 56 

320 PRINT" {BLK} { 4 GIU'H 9 SPAZI }STO FACENDO IL PUZZLE!" 

srem 192 

340 FORX-lTOS:FORY-lTOS:M(Y,X)-42:NEXT:NEXT:Q-0 srem 90 

360 FORX»1TOS:FORY«1TOS:P(Y,X)»0:NEXT srem 184 

370 NEXT:Q-Q+l:IFQ>WTHEN760 srem 201 

380 G«LEN(W$(Q))-2 srem 203 
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400 X9-0:FORX-lTOS:FORY«lTOS:IFP(Y,X)-OTHENX9«l:X-S:Y-S 

treni 116 

410 NEXT:NEXT:IFX9“1THEN450 srem 221 

430 PRINT"{CLR}QUESTA LISTA DI PAROLE NON E' SODDISFACENT 
E. trem 186 


440 

PRINT"DIGITA UN'ALTRA LISTA.":GOTO!30 

: rem 

ii 

450 

A-INT(S*RND(1)+1):B-INT(S*RND(1)+1)tIFP(B 

,A) O0THEN45 


0 

: rem 

81 

460 

P(BfA)“1 :IFM(B # A)“42THEN490 

srem 

221 

470 

IFM(B * A)< >ASC(LEFT$(W$(Q),1))THEN400 

srem 

246 

490 

FORX-1T08:F(X)-0 :NEXT 

srem 

52 

500 

X9-0:FORX-1TO8:IFF(X)=0THENX9«l:X-8 

srem 

175 

510 

NEXT:IFX9-0THEN400 

srem 

95 

520 

D-INT(8*RND(1 )+1):IFF(D)-1THEN520 

srem 

80 

530 

F(D)-1:ONDGOTO550,590,580,620,610,650,640 

,560 



srem 

61 

550 

IF(A+G)>STHEN500 

s rem 

130 

560 

IF(B-G)<1THEN500 

srem 

98 

570 

GOTO670 

srem 

114 

580 

IF(B+G)>STHEN500 

srem 

134 

590 

IF(A+G)>STHEN500 

srem 

• 

134 

600 

GOTO670 

srem 

108 

610 

IF(A-G)<1THEN500 

srem 

93 

620 

IF(B+G)>STHEN500 

srem 

129 

630 

GOTO670 

srem 

m 

640 

IF(B-G)<1THEN500 

srem 

97 

650 

IF(A-G)<1THEN500 

srem 

97 

670 

X-A:Y-B:X9-0:FORN-2TOG+1tGOSUBl550:IFM(Y, 

X)“42THEN690 



srem 

27 

680 

IFM(Y,X)OASC(MID$ (W$ (Q) ,N,1))THENX9-1 :N« 

G+1srem 

35 

690 

NEXT:X-A:Y-B:IFX9-1THEN500 

srem 

140 

710 

FORN-lTOG+1:IFM(Y,X)-42THENM(Y,X)-ASC(MID$(W$(Q), 

N,l) 


) 

srem 

186 

720 

GOSUBl550:NEXT 

srem 

93 

740 

L(Q»1 ) -A-l:L(Q,2)*B-1:L(Q,3)-D:IFQ<WTHEN360 trem 

162 

760 

FORY-1TOS:PORX»1TOS:IFM(Y f X)-42THENM(Y,X) 

■INT(25*RND ( 


1 ) +65) 

srem 

181 

770 

NEXT:NEXT : WP-0 : TS-0 

srem 

242 

775 

POKE53280,7 

srem 

55 

780 

PRINT"{CYN}{CLR}{ 5 GIU'}FATTOI" 

srem 

150 

790 

PRINT"{GRN}{ 5 GIU'}PREMI UN TASTO" 

srem 

143 

800 

R$-"":GETR$:IFR$«""THEN800 

srem 

166 

810 

POKB53280.1 

srem 

39 

820 

PRINT"{BLU}{CLR}{GIU'} {GIU'}{ 2 SPAZI } {RVS}COLONNA" ; 


TAB(14): " {CYN }{ RVS }{ SU } PAROLA" 

srem 

163 

860 

PRINT"{BLU} { 4 GIU' } {RVS}R{GIU '} {SIN}I{GIU '} {SIN}G 


{GIU'}{SIN}A{ 6 SU}{ 2 SIN}{OFF}"; 

srem 

126 

861 

PRINT"{BLK}{ 4 DBS}"; 

srem 

175 

870 

FORX-OTOS-1:PRINTRIGHT$(STR$ (X) ,1 ); : NEXTX:PRINT:Y-1:G 


OSUB1650 

srem 

214 
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880 FORY»lTOS:PRINT"{DBS}" ;RIGHT$(STR$ (Y-l),1) 

:rem 179 

890 FORX»lTOS:PRINTCHR$(M(Y,X));:NEXTX :rem 228 

900 PRINT"-":NBXTY:Y-0:GOSUBl650 srem 159 

910 PRINT"TrED}{RVS}{GIU'}{ 3 SPAZI}7 8 1{ 3 SPAZI}" 

:rem 74 


920 PRINT"{RVS}{ 4 SPAZI}M-N 


{ 3 SPAZI}6*Q*2{ 3 SPAZI 
921 PRINT" {RVS }T~f SPAZI }NBM 
{ 3 SPAZI}5 4 3{ 3 SPAZI 


4 SPAZI}"SPRINT"{RVS} 

srem 204 

4 SPAZI}"SPRINT"{RVS} 

srem 149 


930 G“17:GOSUBl700sPRINTsPRINT"{SU}"TAB(12);sPRINT"{PUR} 
{RVS}{ 2 SPAZI}PUNTI{ 2 SPAZI}"sPRINTTAB(12);"[<J>} 


{ 

7 SPAZI}{<L>1" 

:rem 

184 

940 PRINTTAB(12);"[<J>]{ 2 SPAZl}0{ 4 SPAZI}{<L>}" 




:rem 

207 

950 PRINTTAB(12);"[<J>]{ 7 SPAZI}{<L>}" 

srem 

160 

951 PRINTTAB(12);"[< 9 U>1"SPRINT"{HOME}" 

srem 

204 

960 G 

l=2sGOSUBl700sPRINT"{ 9 SPAZI}" 

srem 

226 

970 WP-WP+1SIFWP>WTHENl 450 

srem 

133 

980 Q 

|«LEN(W$ (WP) )-1 

srem 

48 

1000 

GOSUBl700sPRINTTAB(15-(Q/2));LEFT$(W$(WP) 

,Q) sTI$="00 


0000" 

srem 

245 

1020 

G«4sGOSUBl700sPRINTTAB(15);"{BLU}POS." 

srem 

16 

1025 

PRINTTAB(15)"{GRN}RIG{BLK},{RED}COL" 

srem 

221 

1030 

F0RG-6T011sGOSUBl700s 

srem 

38 

1040 

PRINT"{ 5 SPAZI}"sNEXTGsG-6sGOSUB l700 

srem 

204 

1050 

B$-""SGETB$SIFB$-""THEN1050 

srem 

210 

1060 

IFASC(B$)-13THEN1050 

srem 

122 

1070 

PRINTB$;"sIFB$-"0"THENB»0sGOTO1090 

srem 

156 

1080 

B-VAL(B$)SlFB<10RB>9THENPRINT"{ 2 SIN}{ 2 

SPAZI} 



{ 2 SIN}";sGOTOl050 

srem 

156 

1090 

A$-""SGETA$ sIFA$«""THEN1090 

srem 

215 

1100 

IFASC(A$)*13THEN1090 

srem 

120 

ino 

PRINTA8 SIFA$-"0"THENA-0 sGOTOl 1 40 

srem 

170 

1120 

A-VAL(A$)sIFA<l0RA>9THENl030 

srem 

158 

1140 

G*7 1 GOSUBl700 s PRINT"DIRs"s PRINTs PRINTTAB(15);" {SIN} 


v« • 

f 

srem 

154 

1150 

GETD$ SIFD$-""THENl150 

srem 

183 

1160 

IFASC(D$)-13THEN11 50 

srem 

126 

1170 

PRINT"{SU}{DES}";D$sD«VAL(D$)sIFD<l0RD>8THENll 40 




srem 

12 

1190 

WT*TI s IFBOL (WP r 2) THENl 230 

srem 

108 

1200 

IFAOL(WP,l) THENl 230 

srem 

163 

1210 

IFD-L(WP,3)THEN1360 

srem 

112 

1230 

X-A+l SY-B+1 SG-LEN(W$ (WP) )-1 s IFM (Y,X) OASC (LEFT$ (W$ (W 


P),1))THENl300 

srem 

no 

1240 

X9-OsFORN-2TOGsGOSUBl550sIFX<10RX>10THEN1270 




srem 

49 

1250 

IFY<1ORY>l0THEN1270 

srem 

175 

1260 

IFM(Y,X)-ASC(MID$(W$(WP),N,1))THENl280 

srem 

203 




1270 X9 = l:N«G :rem 213 

1280 NEXTN:IFX9-0THEN1360 :rem 24 

1300 G s 6:GOSUBl700:PRINTSPC(0);:B$»STR$(L(WP,2)):A$»STR$( 
L(HPfi)) : rem 65 

1310 PRINTRIGHT$(B$,LEN(B$)-1)?",";RIGHT$( A$,LEN(A$)-1) 

:rem 40 

1320 G-8:GOSUBl700:PRINTSPC(1);L(WP,3) :rem 17 

1330 G=10:GOSUBl700 :PrINT" t" :rem 151 

1340 G«11 :GOSUBl700:PRINT"J {RVS} NO{OFF}" :rem 70 

1341 G«1 3:GOSUBl700:PRINT"TGIU'}PREMI":G«13:GOSUBl700:PRI 

NT"{ 2 GIU'}SPACE" :rem 9 

1 342 QW$*"":GETQW$: IFQW$*""THEN1342 :rem 12 

1343 G=1 0:GOSUBl 700:PRINT" " :rem 61 

1 344 G=11 : GOSUBl 700:PRINT"{ 5 SPAZI}" :rem 63 

1345 G=13:GOSUB1700:PRINT"{GIU'}{ 7 SPAZI}":G=13:GOSUBl70 
0:PRINT" { 2 GIU'H 5 SPAZI}" :rem 36 

1350 GOTO1420 :rem 201 

1360 IFWT<(SL*60)THENWS=1OOsGOTOl390 :rem 167 

1370 IFWT<(SL*1200)THENWS-10:GOTOl390 :rem 213 

1 380 WS=5+INT((SL*1200)-WT)/60 :rem 153 

1390 G=10:GOSUBl700:PRINT"t" :rem 157 

1400 G«ll:GOSUBl700:PRINT"{RVS}S{OFF},{SIN}"WS:TS=TS+WS:F 
ORK3=lT02000:NEXT :rem 39 

1420 G=19:GOSUBl700:PRINTTS :rem 165 

1430 GOTO960 :rem 160 

1450 PRINT"{HOME}{ 15 GIU'}" :rem 173 

1460 FORX=lT06:PRINT"{ 12 SPAZI}":NEXTX :rem 45 

1470 FORG--2T014:GOSUBl700 :rem 32 

1480 PRINT"{ 40 SPAZI}":NEXTG :rem 94 

1490 FORX-lTOl500:NEXTX:PRINT"{CLR}" :rem 83 

1491 POKE53280,4 :POKE53281,6 :rem 46 

1492 PRINT"{HOME}{ 8 GIU'}{YEL}{ 10 SPAZI}GIOCHI ANCORA? 

(S/N)" :rem 161 

1500 R$ = "":GETR$:IFR$*""THENl 500 : rem 2 

1505 IFR$*"N"THENl 520 : rem 150 

1510 IFR$="S"THEN90 :rem 56 

1515 IFR$0"N"ANDR$0"S"THENl 500 :rem 44 

1520 PRINT"{CLR}":POKE53280 , 2 : POKE53281 r 10 :rem 238 

1 535 FORX=lT05000:NEXTX:PRINT"{CLR}":POKE53280 , 6 : POKE5328 
1 ,6 :rem 237 

1540 PRINT"{HOME}{ 10 GIU'}{CYN}FINE DEL GIOCO": FORI«ITO1 

000:NEXTI :rem 93 

1541 SYS2048:END :rem 169 

1550 ONDGOTOl560,1570,1580,1590,1600,1610,1620,1630 

: rem 113 

1560 Y«Y-1 : rem 25 

1570 X*X+1:RETURN :rem 48 

1580 X-X+l : rem 23 

1590 Y-Y+l: RETURN :rem 52 

1600 Y-Y+l : rem 18 
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1610 

1620 

1630 

1650 

1660 

1670 

1680 

1700 


X-X-1: RETURN :rem 45 
X»X-1 : rem 20 
Y-Y-1: RETURN :rem 49 


PRINT"{ 2 DES}"; :IFY«1THENPRINT"I<A>]";sGOTOl670 

:rem 206 

PRINT"[<Z>]:rem 134 
FORX*OTOS-1 :PRINT"*";sNEXTXsIFY-1THENPRINT"[<S>]":RE 
TURN :rem 253 

PRINT"[<X>]":RETURN srem 119 

PRINT"{HOME}"TAB(14); :FORX9-1TOG:PRINT"{BLK}{GIU' 
:NEXTX9:RETURN srem 137 



Zig Zag è adatto per provare i tuoi 
riflessi. Il gioco consiste nel muo¬ 
vere una croce posta in uno scher¬ 
mo pieno di ostacoli. Il tuo obietti¬ 
vo è quello di riuscire a far arrivare 
la croce alla "casa“che si trova nel¬ 
la parte opposta dello schermo. 
Tutto ciò può sembrare facile, ma 
ti assicuro che è davvero compli- 
cato; la difficoltà maggiore è costi¬ 


tuita dalla velocità a cui viaggia la 
croce. 

Per muovere devi usare i seguenti 
tasti: 

“2“ Sotto “4“ Sopra 
“6“ Sinistra “8“ Destra 
Inoltre puoi interrompere o reini¬ 
ziare il gioco premendo rispettiva¬ 
mente FI e F7. 


100 rem***ZIG ZAG*** :rem 61 

110 PRINT"{CLR}":POKE53280,2:POKE53281,2 srem 137 

120 PRINT"{CLR}{WHT}{ 6 GIU'}" srem 98 

130 REM :rem 120 

140 PRINT"{ 2 DES}*************************************" 

:rem 178 

150 PRINT"{ 2 DES}*{ 12 SPAZI}{RVS}{ 2 SPAZI}ZIG ZAG 

{ 2 SPAZI}{OFF}{ 12 SPAZI}*"; :rem 160 

160 PRINT"{ 3 DES}*{ 35 SPAZI}*"; srem 78 

170 PRINT"{ 3 DES}*{ 16 SPAZI}PER{ 16 SPAZI}*"; :rem 54 

180 PRINT"{ 3 DES}*{ 35 SPAZI}*"; srem 80 

190 PRINT"{ 3 DES}*{ 14 SPAZl}CBM{ 2 SPAZl}64{ 14 SPAZI} 
*"; srem 141 
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200 

PRINT"{ 3 DES}*{ 35 SPAZI}*"; 

:rem 

73 

210 

PRINT"{ 3 DES}****************************** 

srem 

205 

220 

REM 

:rem 

120 

230 

FORA-0TO39:POKEl024+A,160 :POKE55296+A,(AAND7):POKEl98 


4+A,160 

:rem 

174 

240 

POKE56256+A,(AAND7):NEXT 

srem 

122 

250 

REM 

srem 

123 

260 

GOSUB950 

srem 

182 

270 

CLR 

srem 

122 

280 

PRINT"{CLR}" 

srem 

254 

290 

REM 

srem 

127 

300 

REM 

srem 

119 

310 

E-INT(40*RND(1) +1064) 

srem 

60 

320 

H»INT(40*RND(1) +1 984) 

srem 

75 

330 

REM 

srem 

122 

340 

PRINT"************************************** 

r**n • 

9 

srem 

51 

350 

PRINT"*{ 10 SPAZI}2-SOTTO{ 2 SPAZI}6-SINISTRA 


360 

{ 9 SPAZI}*"; 

PRINT"*{ 10 SPAZI}4-SOPRA{ 2 SPAZI}8-DESTRA 

srem 

192 

370 

{ 11 SPAZI}*"; 

PRINT"*{ 10 SPAZI}F1-FINE{ 2 SPAZI}F7-RESET 

srem 

7 


{ 11 SPAZI}*"; 

srem 

237 

380 

PRINT" ************************************ ****•• 

:rem 

252 

390 

REM 

srem 

128 

400 

FORA-OTO39:POKEl024+A,160:POKE55296+A,(AAND7):POKEl98 


4+Ar160 

srem 

173 

410 

POKE56256+A,(AAND7):NEXT 

srem 

121 

420 

FORJJ-1TOl500:NEXTJJ 

srem 

245 

430 

GOSUBÌ 260 

srem 

224 

440 

REM 

srem 

124 

450 

PRINT"{CLR}" 

srem 

253 

460 

POKE53280,1 :POKE53281,0 

srem 

240 

470 

REM 

srem 

127 

480 

FORA>l064TO1984STEPINT(RND(1 ) *63) 

srem 

182 

490 

B-INT(RND(1)*40) 

srem 

76 

500 

POKBA-B,81 

srem 

9 

510 

NEXTA 

srem 

22 

520 

REM 

srem 

123 

530 

POKEH r 91 :GETA$ 

srem 

36 

540 

POKEE,86 

srem 

167 

550 

POKE54296,15 

srem 

101 

560 

REM 

srem 

127 

570 

IFA$*"{Fi}"THENl 250 

srem 

141 

580 

REM 

srem 

129 

590 

IFA$*"{F7}"THEN270 

srem 

99 

600 

REM 

srem 

122 

610 

IFA$«"2"THENPOKE54273,200:POKE54273,0 

srem 

41 
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620 

IFA$-"2"THENG-40:GOTO690 

: rem 

104 

630 

IFA$-"4"THENPOKE54273,210 :POKEJ54273,0 

:rem 

46 

640 

IFA$-"4"THENG«-40:GOTO690 

:rem 

153 

650 

IFA$-"6"THENPOKE54273,220:POKE54273,0 

: rem 

51 

660 

IF A$ - " 6 "THENG--1:GOTO690 

:rem 

106 

670 

IFA$»"8"THENPOKE54273,230:POKE54273,0 

:rem 

56 

680 

IFA$-"8"THENG-1:GOTO690 

: rem 

65 

690 

M-M+l 

:rem 

210 

700 

POKEE,32:E=E+G 

: rem 

15 

710 

REM 

:rem 

124 

720 

IFE«>2023THENE»E-40 

: rem 

54 

730 

IFE»<1024THENE-E+40 

:rem 

51 

740 

REM 

: rem 

127 

750 

IFPEEK(E)-81THENGOSUB1040:GOTO790 

2 rem 

19 

760 

POKES,90 

2 rem 

166 

770 

IFE-HTHENPOKE53281,0:GOSUB950:GOTO890 

2 rem 

32 

780 

GOTO530 

2 rem 

112 

790 

POKE53281,0 :POKE53280,0 

2 rem 

245 

795 

PRINT" {WHT} {CLR} { 9 GIU'H 9 DES}HAI COLPITO UNA 

PALL 


A" 

2 rem 

230 

800 

PRINT"{GIU'}{ 6 DES}VUOI GIOCARE ANCORA ? 

(S/N)" 



• 

2 rem 

121 

810 

FORA-0TO39:POKEl024+A,160:POKE55296+A,(AAND7):POKEl98 


3+A,160 

2 rem 

177 

820 

POKE56255+A,(AAND7):NEXT 

2 rem 

125 

830 

GETG$:IFG$-""THEN8 30 

2 rem 

101 

840 

IFG$-"S"THEN870 

2 rem 

56 

850 

IFG$-"N"THENl 250 

2 rem 

93 

860 

IFG$O""THEN830 

2 rem 

32 

870 

PRINT"{CLR}" 

2 rem 

3 

880 

GOTO270 

2 rem 

114 

890 

POKE53280,1:POKE53281,0 

2 rem 

247 

895 

PRINT" {WHT} {CLR} { 9 GIU’H 9 DES} BEN FATTO 

HAI VINTO 


l" 

2 rem 

175 

900 

GOTO800 

2 rem 

106 

910 

IFY<3THENGOTO930 

2 rem 

245 

920 

GOTO530 

2 rem 

108 

950 

S-54272 

2 rem 

50 

960 

FORL-0TO24:POKES+L,0 :NEXT 

2 rem 

80 

970 

POKES+24,15:POKES+3,12:POKES+5,40 :POKES+6, 

146:POKES+4 


»65 

2 rem 

48 

980 

F0RI-64T0255 

2 rem 

183 

990 

POKES+1,1/(INT(I)):POKES,I 

2 rem 

43 

1000 F0RPA-lT08:NEXT 

2 rem 

251 

1010 NEXT:FORPA»lTOlOOO:NEXT 

2 rem 

254 

1020 POKES , 0 :POKES+1,0 

2 rem 

21 

1030 RETURN 

2 rem 

164 

1040 POKE54273,138 

2 rem 

193 

1050 FORL- 5TOOSTEP-1 

2 rem 

216 

1060 POKE54296,L:POKE53280,L:POKE53281 ,L 

2 rem 

63 
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1070 

PORM-lTOlOO 

:rem 

158 

1090 

NEXTL 

2 rem 

85 

1100 

POKE54273,0 

:rem 

82 

ino 

POKE54296,0 

: rem 

88 

1120 

POKE53280,4:POKE53281,1 

:rem 

30 

1130 

POKE54273,200 

: rem 

183 

1140 

POKE54273 f 138 

:rem 

194 

1150 

FORL-15TOOSTEP-1 

: rem 

10 

1160 

POKE54296,L:POKE53280,L:POKE53281 ,L 

2 rem 

64 

1170 

FORM*1TOl 00 

2 rem 

159 

1180 

NEXTM 

2 rem 

86 

1190 

NEXTL 

2 rem 

86 

1200 

POKE54273,0 

2 rem 

83 

1210 

POKE54296,0 

2 rem 

89 

1220 

POKE53280,4 :POKE53281 ,1 

2 rem 

31 

1230 

FORI*1TO900:NEXTI 

2 rem 

98 

1240 

RETURN 

2 rem 

167 

1250 

GOSUBl350 :PRINT"{CLR}{SU}":POKE53280 , 

14:POKE53281 

,6: 


CLR’.END 

2 rem 

54 

1260 

POKE54296,15 

2 rem 

148 

1270 

FORL-250T0200STEP-1 

2 rem 

160 

1280 

POKE54273,L 

2 rem 

119 

1290 

FORM-ITO5 

2 rem 

70 

1300 

NEXTM:NEXTL 

2 rem 

21 

1310 

FORL-206TO250STEP2 

2 rem 

117 

1320 

POKE54273,L 

2 rem 

114 

1330 

NEXTL 

2 rem 

82 

1340 

POKE54273,0 :POKE54 2 96,0: RETURN 

2 rem 

65 

1350 

POKE54296,15 

2 rem 

148 

1360 

FORL-130TO254 

2 rem 

12 

1370 

POKE54273,L 

2 rem 

119 

1380 

FORM-ITO40 

2 rem 

117 

1390 

NEXTM 

2 rem 

89 

1400 

NEXTL 

2 rem 

80 

1410 

POKE54273,0 

2 rem 

86 

1420 

RETURN 

2 rem 

167 
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ora in 
■lamento 
nell’edizione 

per il tuo 
computer 



Il primo settimanale di software sa carta per il tao 
personal computer. Un appuntamento al quale non puoi 
mancare ogni venerdì in edicola. 

Nàta in edizione unica, per i più diffusi home 
e personal computer, dal 4 Aprile, allo 
stesso presso, sono in edicola le versioni 
dedicate ai calcolatori Commodore, 

Sinclair e un'edizione esclusiva 
dedicata ai personal Apple, Texas 
TI99/4A e ai sistemi MSX. Puoi anche 
abbonarti dal 4 Aprile al 31 Dicembre 
riceverai così, comodamente a casa con 
un notevole risparmio, 38 numeri del 
settimanale. Chi si abbona riceverà ogni 
15 giorni 2 numeri di PaperSaft in 
anticipo rispetto all’uscita in edicola. 

NON PERDERE QUESTA OCCASIONEI 
Compila subito il coupon sotto riportato 
e spediscilo a: 

Ji soft... 

Viale Restelli, 5 - 20124 Milano 



□ adizione Sinclair (PS01) □ adizione Commodore (PC01) a edizione Appie/T!99/M8X (PV01) 

cornano asegau u assegno allegato n. - 


□ ho verselo l'imporlo sul 004 ». n. 19445204 inte s talo e J.eoft- MILANO 

Cognome , . ... Nome- 

Via_ Città_ 

CAP_Prov_Data_ 
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